Calculatrices Casio Graphiques : Jeux, programmes, cours, pompes, astuces et programmation sur calculatrice graphique Casio et ClassPad 300 : programmes casio et jeux casio...

ClrText
For 1A To 250
Next
Locate 7,3,"D. Cross"
Locate 7,5,"PRESENTS"
For 1A To 350
Next
ClrText
Locate 3,4,"LONG,LONG AGO..."
For 1A To 450
Next
ClrText
Locate 3,3,"IN A GALAXY FAR,"
Locate 6,4,"FAR AWAY..."
For 1A To 450
Next
ClrText
For 7A To 2 Step -1
Locate 7,A,"STAR WARS"
Locate 7,A," "
Next
Locate 7,1,"STAR WARS"
For 1A To 7
Locate A,3,"X-WING"
Next
For 21A To 9 Step -1
Locate A,5,"GOLD"
Next
While Getkey=31
Locate 6,7,"PRESS [EXE]"
Locate 6,7," x "
WhileEnd
0A~Z
For 1A To 250
Next
ClrText
" DIFFICULTY"
Orange " ~~~~~~~~~~~~"
"1 LEIA"
"2 HAN"
"3 CHEWIE"?
If =1
Then 8B
7Y
IfEnd
If =2
Then 6B
10Y
IfEnd
If =3
Then 4B
15Y
IfEnd
0r
0
3R
10M
2500E
ClrText
Lbl Q
0D
0P
0H
0I
0U
0V
0Q
5K
9X
Int 17Ran#+2A
A2Goto Q
A20Goto Q
A>91D
A90D
While 1
Goto 1
Lbl P
1K
Lbl 1
Q+1Q
Locate A,1," "
D=0A+1A
D=1A-1A
If A=19
Then 1D
18A
IfEnd
If A=2
Then 0D
3A
IfEnd
If V=0
Then Locate A,1,"[-]"
IfEnd
If Q=B And V=0
Then Locate A,2," "
K=0Goto P
For 2T To 6
Locate A,T,". ."
Locate A,T,". ."
Locate A,T," "
Next
If A+1=X Or A+1=X+1 Or A+1=X+2
Then Locate X,7," "
Goto 2
IfEnd
0Q
IfEnd
If V=1
Then Int 17Ran#+2A
0V
0Q
IfEnd
Locate X,7,">^<"
If Getkey=38
Then Locate X,7," "
X1X-1X
X=22X
IfEnd
If Getkey=27
Then Locate X,7," "
X191+XX
X=1919X
IfEnd
Locate X,7,">^<"
If Getkey=78
Then For 6T To 2 Step -1
Locate X,T,"! !"
Locate X,T,"! !"
Locate X,T," "
Next
If X+1=A Or X+1=A+1 Or X+1=A+2
Then Locate A,1," x "
Locate A,1,"xxx"
Locate A,1,"x x"
Locate A,1," "
1V
P+1P
If X+1=A+1
Then S+2S
Else S+1S
IfEnd
IfEnd
P=YGoto W
IfEnd
If M=0 And H=0
Then 1H
For 1T To 3
Locate 2,4,"FREEZE-RAYS DEPLETED"
Locate 2,4,"FREEZE-RAYS DEPLETED"
Locate 2,4,"FREEZE-RAYS DEPLETED"
Locate 2,4,"FREEZE-RAYS DEPLETED"
Locate 2,4," "
Next
IfEnd
If Getkey=68 And M>0
Then For 1T To 3
Locate X,6," @"
Locate X,6," @ "
Locate X,6,"@ "
Locate X,6," @ "
Next
Locate X,6," "
0K
M-1M
M=00H
Goto 1
IfEnd
If Getkey=31
Then For 1T To 9
'cos 5'
Next
While Getkey=31
Locate 8,4,"PAUSED"
WhileEnd
Locate 8,4," "
IfEnd
If 130SE
Then R+1R
For 1T To 8
Locate 9,4,"1 UP"
Next
Locate 9,4," "
2EE
IfEnd
WhileEnd
Lbl 2
X+1V
For 0X To 3
Locate V-X,7-X,"x"
Locate V+X,7-X,"x"
Locate V,7-X,"x"
Locate V+X,7,"x"
Locate V-X,7,"x"
Next
For 0X To 3
Locate V-X,7-X," "
Locate V+X,7-X," "
Locate V,7-X," "
Locate V+X,7," "
Locate V-X,7," "
Next
R-1R
R=0Goto E
ClrText
Locate 7,4,"LIVES:"
Locate 14,4,R
For 1T To 350
Next
ClrText
Goto Q
Lbl W
Locate 4,4,"WAVE COMPLETE"
ClrText
Locate 6,4,"NEXT WAVE"
For 1T To 350
Next
ClrText
Locate 8,4,"READY"
For 1T To 350
Next
ClrText
Locate 9,4,"GO!"
For 1T To 150
Next
ClrText
I+1I
I=3M+10M
I=31I
Goto Q
Goto E
130SS
ClrText
Locate 1,3,"YOUR SCORE "
Locate 13,1,S
Dim List 1V
Locate 1,5,"HIGHSCORE "
SList 1[(Dim List 1)-1]
SortA(List 1)
Dim List 1S
Locate 12,5,List 1[V]
If S=List 1[V]
Then For 1T To 50
Locate 6,7," "
Locate 4,7,"NEW HIGHSCORE"
Next
IfEnd
ClrText